CyberMycha Extra 2004 January/CyberMycha Extra 1-2004 (Poland) (Disc 2).bin/Pippi/common.cst/00043_autoEffectsRepeated.ls

Text File | 2001-09-04 | 475 b | 29 lines

property meSprite, autoTix

on beginSprite me
  autoTix = the timer + random(500)
  meSprite = sprite(me.spriteNum)
  meSprite.static = 1
end

on autoTrig me
  if meSprite.playing = 0 then
    meSprite.static = 0
    meSprite.play()
  end if
end

on exitFrame me
  if the timer > autoTix and the timer < autoTix + 10 then
    autoTrig me
    autoTix = the timer + random(500)
  end if
end

on setStatic me
  if meSprite.playing = 0 then
    meSprite.static = 1
  end if
end